﻿Module Module1

    Sub Main()

        Dim insObj As EpubCreator = New EpubCreator("mon premier roman", "d:\Users\admin\desktop\tp_epub11_12")

        insObj.OpenParagraph()
        insObj.writeTexte("Hier mal")
        insObj.writeSpace()
        insObj.writeTexte("ein")
        insObj.writeSpace()
        insObj.writeTexte("Versuch")
        insObj.writeSpace()
        insObj.writeTexte("unsere")
        insObj.writeSpace()
        insObj.writeTexte("Team")
        insObj.writeSpace()
        insObj.writeTexte("Projekt.")
        insObj.CloseParagraph()

        insObj.OpenParagraph()
        insObj.writeTexte("Arbeit")
        insObj.writeSpace()
        insObj.writeTexte("viel")
        insObj.writeSpace()
        insObj.writeTexte("Spaß")
        insObj.writeSpace()
        insObj.writeTexte("dabei!")
        insObj.CloseParagraph()

        insObj.OpenParagraph()
        insObj.writeTexte("das Team")
        insObj.CloseParagraph()

        insObj.getImage("D:\Users\admin\Desktop\Foto\dalaylama.png")
        insObj.getImage("D:\Users\admin\Desktop\Foto\madLouise.jpeg")

        insObj.finishBook()

        insObj.zipEpub("tp11_12")
    End Sub

End Module
